<?
	function initializeOrganizacion( &$oField , $cParametros = '', $cField = '' )
	{
		$oModule =& loadModule( 'librosar' );
		if ( $oField->getValue() )
		{
			$cSql = "SELECT cApellido, cNombre FROM btOrganizacion WHERE ncOrganizacion = " . $oField->getValue();
			list ( $cApellido, $cNombre )= $oModule->oDatabase->getArray( $cSql );
			$oField->setDescription( $cNombre . ' ' . $cApellido);
		}
		$oField->addActionArray( 2, $oModule->getActionArray( BUSCAR_ORGANIZACION ) , $cParametros, $cField);
		if ( $cParametros ) $cParametros = '&amp;' . $cParametros;
		$oField->addActionArray( 2, $oModule->getActionArray( AGREGAR_ORGANIZACION ),  $cParametros , $cField);
		$oField->addActionArray( 3, $oModule->getActionArray( MODIFICAR_ORGANIZACION ),  $cParametros , $cField);
		$cUrl = '?' . PARAM_REFRESH . '=class&amp;' . PARAM_MODULE . '=librosar&amp;' .  PARAM_ACTION . '=' . BUSCAR_ORGANIZACION . '&amp;' . PARAM_CLASS . '=organizacion_lst&amp;' . PARAM_METHOD . '=getData';
		$oField->setEditable ( $cUrl );
	}
	function initializePersona( &$oField , $cParametros = '', $cField = '' )
	{
		$oModule =& loadModule( 'librosar' );
		if ( $oField->getValue() )
		{
			$cSql = "SELECT cApellido, cNombre FROM btPersona WHERE ncPersona = " . $oField->getValue();
			list ( $cApellido, $cNombre )= $oModule->oDatabase->getArray( $cSql );
			$oField->setDescription( $cNombre . ' ' . $cApellido);
		}
		$oField->addActionArray( 2, $oModule->getActionArray( BUSCAR_PERSONA ) , $cParametros, $cField);
		if ( $cParametros ) $cParametros = '&amp;' . $cParametros;
		$oField->addActionArray( 2, $oModule->getActionArray( AGREGAR_PERSONA ),  $cParametros , $cField);
		$oField->addActionArray( 3, $oModule->getActionArray( MODIFICAR_PERSONA ),  $cParametros , $cField);
		$cUrl = '?' . PARAM_REFRESH . '=class&amp;' . PARAM_MODULE . '=librosar&amp;' .  PARAM_ACTION . '=' . BUSCAR_PERSONA . '&amp;' . PARAM_CLASS . '=persona_lst&amp;' . PARAM_METHOD . '=getData';
		$oField->setEditable ( $cUrl );
	}
	function traer_persona( $ncPersona, &$oDatabase , $lang = 'es' )
	{
		if ( !$oDatabase )
		{
			$oModule =& loadModule( 'librosar');
			$oDatabase =& $oModule->oDatabase;
		}	
		$cSql = "SELECT  ncPersona, cNombre, cApellido, cBiografia, cFechaNacimiento, cFechaMuerte
			FROM btPersona as Per
			WHERE Per.ncPersona = $ncPersona";
		$aPersona = $oDatabase->getArray($cSql );
		return $aPersona ;	
	}
	function traer_organizacion( $ncOrganizacion, &$oDatabase , $lang = 'es' )
	{
		if ( !$oDatabase )
		{
			$oModule =& loadModule( 'librosar');
			$oDatabase =& $oModule->oDatabase;
		}	
		$cSql = "SELECT  Org.ncOrganizacion, Org.cdOrganizacion, cHistoria, cdPais, cdProvincia, Org.cDireccion, Org.cTelefono, Org.cEmail, Org.cPostal, Org.nCuit,  Org.cFax, Org.nInicioActividad, Org.cPaginaWeb, Org.nLatitud, Org.nLongitud, Org.cLocalidad
			FROM btOrganizacion as Org
			LEFT JOIN bcProvincia as Pro
				ON Pro.ncProvincia = Org.ncProvincia
			LEFT JOIN bcPais as Pai
				ON Pai.ncPais = Org.ncPais
			WHERE Org.ncOrganizacion = $ncOrganizacion";
		$aOrganizacion = $oDatabase->getArray($cSql );
		
		$cSql = "SELECT cdTema FROM bcTema as Tem JOIN btOrganizacionTema as LTe ON LTe.ncTema = Tem.ncTema WHERE LTe.ncOrganizacion = $ncOrganizacion";
		$aOrganizacion['cTemas'] = implode( ';', $oDatabase->getArray( $cSql) );
		$cSql = "SELECT cdIdioma FROM bcIdioma as Tem JOIN btOrganizacionIdioma as LTe ON LTe.ncIdioma = Tem.ncIdioma WHERE LTe.ncOrganizacion = $ncOrganizacion";
		$aOrganizacion['cIdiomas'] = implode( ';', $oDatabase->getArray( $cSql) );
		
		return $aOrganizacion ;	
	}
	function traer_libro( $ncLibro, &$oDatabase , $lang = 'es' )
	{
		if ( !$oDatabase )
		{
			$oModule =& loadModule( 'librosar');
			$oDatabase =& $oModule->oDatabase;
		}	
		//ncTipoContenido,  ncTipoSoporte,  ncTipoPapelInterior, ncTipoPapelTapa, ncDisponibilidad, ncPublico, ncColeccion, ncSello,  ncTipoObra, ncTipoEncuadernacion,
		$cSql = "SELECT  Lib.ncLibro, Lib.bImagen, Lib.cdLibro, Lib.nEdicion, Lib.nqTirada, Lib.cPalabrasClave, Lib.cSubserie, Lib.cISBN17, Lib.cEAN, Lib.cSubtitulo, Lib.dPublicacion, Lib.nAncho, Lib.nLargo, Lib.nPeso, Lib.dImpresion, Lib.nqPaginas,  Lib.nAlto, Lib.nqGramosInterior, Lib.nqGramosTapa, Lib.bDominioPublico, Lib.cISBN13
			FROM btLibro as Lib
			WHERE Lib.ncLibro = $ncLibro";
		$aLibro = $oDatabase->getArray($cSql );
		$aLibro[cDimesiones]= ( $aLibro[nAlto] && $aLibro[nAncho]&& $aLibro[nlargo] ) ?  $aLibro[nAlto] .' cm x ' . $aLibro[nAncho] .' cm x ' . $aLibro[nlargo] .' cm ' :'';
		$cSql = "SELECT cNombre, cApellido, ncRol FROM btPersona as Per JOIN btLibroPersona as LPe ON LPe.ncPersona = Per.ncPersona WHERE LPe.ncLibro = $ncLibro";
		foreach ( $oDatabase->getMatrix( $cSql) as $aAutor )
			$aLibro['ncPersona'. $aAutor[ncRol] ] .= $aAutor[cApellido] . ($aAutor[cNombre] != '' ? ', ' : ' ') . $aAutor[cNombre]  .'; ';
		$cSql = "SELECT cdOrganizacion, ncRol FROM btOrganizacion as Org JOIN btLibroOrganizacion as LOr ON LOr.ncOrganizacion = Org.ncOrganizacion WHERE LOr.ncLibro = $ncLibro";
		foreach ( $oDatabase->getMatrix( $cSql) as $aOrganizacion )
			$aLibro['ncOrganizacion'. $aOrganizacion[ncRol] ] .= $aOrganizacion[cdOrganizacion] . '; ';
		$cSql = "SELECT cdTema FROM bcTema as Tem JOIN btLibroTema as LTe ON LTe.ncTema = Tem.ncTema WHERE LTe.ncLibro = $ncLibro";
		$aLibro['cd'] = implode( ';', $oDatabase->getArray( $cSql) );
		
		$cISBN = $aLibro[cISBN17] ?  $aLibro[cISBN17]: $aLibro[cISBN13];
		$aISBN = explode ('-', $cISBN);
		if ( $aISBN[0] == 978 && ($aISBN[1] == 987 || $aISBN[1] == 950 ) ) $cSello = $aISBN[2];
		if ( $aISBN[0] == 987 || $aISBN[0] == 950 ) $cSello = $aISBN[1];
		$aLibro[nSello] =  trim($cSello);
		$cArchivo = str_replace('-', '', $cISBN) . ".jpg";
		if ( $aLibro[bImagen] ) 
			$aLibro[cArchivo] =  "http://190.210.18.217/librosar/files/imagenes_libro/" . $aLibro[nSello] . "/" . $cArchivo;			
		elseif  ( file_exists(PATH_FILES . "imagenes_libro/" . $aLibro[nSello] . "/" . $cArchivo ) )
		{
			$oDatabase->update('btLibro', 'bImagen' , 1, 'WHERE', 'ncLibro', $aLibro[ncLibro]) ;
			$aLibro[cArchivo] =  "http://190.210.18.217/librosar/files/imagenes_libro/" . $aLibro[nSello] . "/" . $cArchivo;			
		}
		return $aLibro ;
	}
?>